U.S. Robotics Connections 2/US Robotics Connections.iso/pc/sourcepc/palmpc.dir/00217.ls

Text File | 1996-03-01 | 515 b | 23 lines

on mouseDown
  global gCalNum, gSetNum, gLastNum, gOperation, gAnswer
  if gAnswer = 1 then
    set gSetNum to 0
    set gCalNum to 0
    set gAnswer to 0
  end if
  if the number of chars in string(gCalNum) >= 9 then
    exit
  end if
  if string(gCalNum) contains "." then
    exit
  end if
  set lNum to "."
  set lText to EMPTY
  repeat with i = 1 to the number of chars in string(gCalNum)
    put char i of string(gCalNum) after lText
  end repeat
  put lNum after lText
  set gCalNum to lText
  DrawNum()
end